home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_115759.txt < prev    next >
Text File  |  1989-08-22  |  11KB  |  504 lines
  1. -- background: 115759 from stack: in
  2. -- bmap block id: 116123
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.4.2 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 4
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn ("graphic" & i) to true
  14.   else set the hilite of bg btn ("graphic" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "Feedback3"
  24.   hide fld "Feedback4"
  25.   hide fld "Feedback5"
  26.   hide fld "CorrectAnswer"
  27.   hide fld "MasterFeedback"
  28.   hide bg btn "Done"
  29.   unlock screen
  30. end hideFeedback
  31.  
  32. on showFeedback
  33.   lock screen
  34.   show fld "Feedback1"
  35.   show fld "Feedback2"
  36.   show fld "Feedback3"
  37.   show fld "Feedback4"
  38.   show fld "Feedback5"
  39.   show fld "CorrectAnswer"
  40.   show fld "MasterFeedback"
  41.   show bg btn "Done"
  42.   unlock screen
  43. end showFeedback
  44.  
  45. on feedback
  46.   global answerTracker
  47.   lock screen
  48.  
  49.   get last char of the short name of the target
  50.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  51.     -- don't overwrite if Q has been answered
  52.     if it = line 1 of fld "key" then
  53.       -- this is the correct answer
  54.       put "y" into line (line 2 of fld "key") of answerTracker
  55.     else put "n" into line (line 2 of fld "key") of answerTracker
  56.   end if
  57.  
  58.   put fld ("feedback" & it) into fld "masterFeedback"
  59.   show fld "masterFeedback"
  60.   show bg btn "Done"
  61.  
  62.   unlock screen
  63. end feedback
  64.  
  65.  
  66. -- part 3 (field)
  67. -- low flags: 01
  68. -- high flags: 0000
  69. -- rect: left=18 top=1 right=38 bottom=442
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 156
  74. -- text size: 24
  75. -- style flags: 10240
  76. -- line height: 32
  77. -- part name: Title
  78.  
  79.  
  80. -- part 15 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=443 top=5 right=72 bottom=512
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Instant Reference
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   instantReference "2.4.2"
  95. end mouseUp
  96.  
  97.  
  98. -- part 16 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=480 top=143 right=172 bottom=511
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 1310 / 1310
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Student Services
  110. ----- HyperTalk script -----
  111. on mousedown
  112.   SSpopUp
  113. end mousedown
  114.  
  115. on mouseup
  116.   if the mouseloc is not within the rect of me then exit to hyperCard
  117.   doSS
  118. end mouseup
  119.  
  120.  
  121.  
  122. -- part 17 (button)
  123. -- low flags: 00
  124. -- high flags: 2000
  125. -- rect: left=482 top=176 right=205 bottom=511
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 162 / 162
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Help
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   Help
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 18 (button)
  142. -- low flags: 00
  143. -- high flags: 2000
  144. -- rect: left=482 top=294 right=320 bottom=509
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 1236 / 1236
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Last Menu
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   go cd "Application Service P/1"
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 19 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=478 top=319 right=341 bottom=498
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 1401 / 1401
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Prev
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.  
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 20 (button)
  180. -- low flags: 00
  181. -- high flags: 0000
  182. -- rect: left=493 top=319 right=341 bottom=512
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 1400 / 1400
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Next
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.  
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 22 (field)
  199. -- low flags: 01
  200. -- high flags: 0000
  201. -- rect: left=16 top=38 right=69 bottom=438
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 156
  206. -- text size: 20
  207. -- style flags: 0
  208. -- line height: 26
  209. -- part name: Subtitle
  210.  
  211.  
  212. -- part 23 (field)
  213. -- low flags: 01
  214. -- high flags: 0000
  215. -- rect: left=16 top=68 right=88 bottom=438
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 3
  220. -- text size: 10
  221. -- style flags: 256
  222. -- line height: 15
  223. -- part name: Instruction
  224.  
  225.  
  226. -- part 24 (field)
  227. -- low flags: 01
  228. -- high flags: 0000
  229. -- rect: left=17 top=95 right=319 bottom=242
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 0
  233. -- font id: 156
  234. -- text size: 16
  235. -- style flags: 0
  236. -- line height: 17
  237. -- part name: Text
  238.  
  239.  
  240. -- part 27 (field)
  241. -- low flags: 81
  242. -- high flags: 2007
  243. -- rect: left=8 top=36 right=94 bottom=231
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 156
  248. -- text size: 16
  249. -- style flags: 0
  250. -- line height: 17
  251. -- part name: Feedback1
  252.  
  253.  
  254. -- part 28 (field)
  255. -- low flags: 81
  256. -- high flags: 2007
  257. -- rect: left=8 top=97 right=155 bottom=231
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 0
  261. -- font id: 156
  262. -- text size: 16
  263. -- style flags: 0
  264. -- line height: 17
  265. -- part name: Feedback2
  266.  
  267.  
  268. -- part 29 (field)
  269. -- low flags: 81
  270. -- high flags: 2007
  271. -- rect: left=8 top=159 right=216 bottom=231
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 0
  275. -- font id: 156
  276. -- text size: 16
  277. -- style flags: 0
  278. -- line height: 17
  279. -- part name: Feedback3
  280.  
  281.  
  282. -- part 30 (field)
  283. -- low flags: 81
  284. -- high flags: 2007
  285. -- rect: left=8 top=219 right=277 bottom=231
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 156
  290. -- text size: 16
  291. -- style flags: 0
  292. -- line height: 17
  293. -- part name: Feedback4
  294.  
  295.  
  296. -- part 6 (field)
  297. -- low flags: 81
  298. -- high flags: 0001
  299. -- rect: left=423 top=0 right=13 bottom=466
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 65535
  303. -- font id: 4
  304. -- text size: 9
  305. -- style flags: 0
  306. -- line height: 12
  307. -- part name: CardTitle
  308.  
  309.  
  310. -- part 35 (button)
  311. -- low flags: 00
  312. -- high flags: A004
  313. -- rect: left=179 top=321 right=340 bottom=324
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: Answer
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   global answerTracker
  325.   lock screen
  326.   put "y" into line (line 2 of fld "key") of answerTracker
  327.   put fld "CorrectAnswer" into fld "MasterFeedback"
  328.   show fld "MasterFeedback"
  329.   show bg btn "Done"
  330.   unlock screen
  331. end mouseUp
  332.  
  333.  
  334. -- part 43 (field)
  335. -- low flags: 81
  336. -- high flags: 2007
  337. -- rect: left=238 top=32 right=89 bottom=461
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 0 / 0
  340. -- text alignment: 0
  341. -- font id: 156
  342. -- text size: 16
  343. -- style flags: 0
  344. -- line height: 17
  345. -- part name: Feedback5
  346.  
  347.  
  348. -- part 45 (button)
  349. -- low flags: 00
  350. -- high flags: 2000
  351. -- rect: left=482 top=208 right=234 bottom=509
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 1234 / 1234
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: Lesson
  360. ----- HyperTalk script -----
  361. on mouseUp
  362.   lesson "2.4.2"
  363. end mouseUp
  364.  
  365.  
  366. -- part 50 (field)
  367. -- low flags: 81
  368. -- high flags: 0002
  369. -- rect: left=1 top=308 right=341 bottom=40
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 0
  373. -- font id: 3
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: Key
  378.  
  379.  
  380. -- part 52 (button)
  381. -- low flags: 00
  382. -- high flags: 2000
  383. -- rect: left=308 top=117 right=181 bottom=372
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: Graphic1
  392. ----- HyperTalk script -----
  393. on mouseUp
  394.   feedback
  395. end mouseUp
  396.  
  397.  
  398. -- part 53 (button)
  399. -- low flags: 00
  400. -- high flags: 2000
  401. -- rect: left=378 top=117 right=181 bottom=442
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: Graphic2
  410. ----- HyperTalk script -----
  411. on mouseUp
  412.   feedback
  413. end mouseUp
  414.  
  415.  
  416. -- part 54 (button)
  417. -- low flags: 00
  418. -- high flags: 2000
  419. -- rect: left=308 top=187 right=251 bottom=373
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 0 / 0
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: Graphic3
  428. ----- HyperTalk script -----
  429. on mouseUp
  430.   feedback
  431. end mouseUp
  432.  
  433.  
  434. -- part 55 (button)
  435. -- low flags: 00
  436. -- high flags: 2000
  437. -- rect: left=378 top=187 right=251 bottom=442
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: Graphic4
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   feedback
  449. end mouseUp
  450.  
  451.  
  452. -- part 33 (field)
  453. -- low flags: 81
  454. -- high flags: 2004
  455. -- rect: left=147 top=85 right=304 bottom=356
  456. -- title width / last selected line: 0
  457. -- icon id / first selected line: 0 / 0
  458. -- text alignment: 0
  459. -- font id: 156
  460. -- text size: 16
  461. -- style flags: 0
  462. -- line height: 17
  463. -- part name: MasterFeedback
  464.  
  465.  
  466. -- part 34 (button)
  467. -- low flags: 80
  468. -- high flags: A002
  469. -- rect: left=215 top=279 right=296 bottom=284
  470. -- title width / last selected line: 0
  471. -- icon id / first selected line: 0 / 0
  472. -- text alignment: 1
  473. -- font id: 0
  474. -- text size: 12
  475. -- style flags: 0
  476. -- line height: 16
  477. -- part name: Done
  478. ----- HyperTalk script -----
  479. on mouseUp
  480.   global answerTracker
  481.   lock screen
  482.   if line (line 2 of fld "key") of answerTracker = "y" then
  483.     -- question correctly answered
  484.     set the hilite of bg btn ("graphic" & line 1 of fld "key") to true
  485.   end if
  486.   hide fld "MasterFeedback"
  487.   hide bg btn "Done"
  488.   unlock screen
  489. end mouseUp
  490.  
  491.  
  492. -- part 32 (field)
  493. -- low flags: 81
  494. -- high flags: 2007
  495. -- rect: left=8 top=280 right=338 bottom=231
  496. -- title width / last selected line: 0
  497. -- icon id / first selected line: 0 / 0
  498. -- text alignment: 0
  499. -- font id: 156
  500. -- text size: 16
  501. -- style flags: 0
  502. -- line height: 17
  503. -- part name: CorrectAnswer
  504.